home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / timebill.sit / Job Summary / background_2627.txt < prev    next >
Text File  |  1988-01-29  |  9KB  |  431 lines
  1. -- background: 2627 from stack: in
  2. -- bmap block id: 2368
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Job Summary
  6. ----- HyperTalk script -----
  7.  
  8.  
  9.  
  10.  
  11. -- part 16 (button)
  12. -- low flags: 00
  13. -- high flags: A004
  14. -- rect: left=141 top=4 right=23 bottom=245
  15. -- title width / last selected line: 0
  16. -- icon id / first selected line: 0 / 0
  17. -- text alignment: 1
  18. -- font id: 2
  19. -- text size: 10
  20. -- style flags: 8192
  21. -- line height: 13
  22. -- part name: Summarize
  23. ----- HyperTalk script -----
  24. on mouseUp
  25.   summarize
  26. end mouseUp
  27.  
  28.  
  29.  
  30. -- part 29 (field)
  31. -- low flags: 00
  32. -- high flags: 0002
  33. -- rect: left=316 top=6 right=21 bottom=383
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 0 / 0
  36. -- text alignment: 0
  37. -- font id: 3
  38. -- text size: 12
  39. -- style flags: 8448
  40. -- line height: 14
  41. -- part name: Sumcode
  42.  
  43.  
  44. -- part 41 (field)
  45. -- low flags: 01
  46. -- high flags: 6002
  47. -- rect: left=12 top=49 right=283 bottom=89
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 0
  51. -- font id: 3
  52. -- text size: 10
  53. -- style flags: 8192
  54. -- line height: 11
  55. -- part name: Person
  56.  
  57.  
  58. -- part 43 (field)
  59. -- low flags: 01
  60. -- high flags: 0000
  61. -- rect: left=393 top=312 right=329 bottom=490
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 0
  65. -- font id: 3
  66. -- text size: 12
  67. -- style flags: 8448
  68. -- line height: 16
  69. -- part name: Summarytotal
  70.  
  71.  
  72. -- part 44 (field)
  73. -- low flags: 01
  74. -- high flags: 0000
  75. -- rect: left=431 top=6 right=21 bottom=503
  76. -- title width / last selected line: 0
  77. -- icon id / first selected line: 0 / 0
  78. -- text alignment: 0
  79. -- font id: 3
  80. -- text size: 12
  81. -- style flags: 8192
  82. -- line height: 14
  83. -- part name: sumdate
  84.  
  85.  
  86. -- part 45 (field)
  87. -- low flags: 00
  88. -- high flags: 0000
  89. -- rect: left=386 top=291 right=308 bottom=456
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 0
  93. -- font id: 3
  94. -- text size: 12
  95. -- style flags: 8448
  96. -- line height: 16
  97. -- part name: Totalhours
  98.  
  99.  
  100. -- part 46 (button)
  101. -- low flags: 00
  102. -- high flags: A004
  103. -- rect: left=14 top=288 right=310 bottom=183
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 1
  107. -- font id: 2
  108. -- text size: 10
  109. -- style flags: 8192
  110. -- line height: 13
  111. -- part name: To Timesheet/Expenses
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   if the optionKey is down then
  115.     go stack "Expenses"
  116.     exit mouseUp
  117.   end if
  118.  
  119.   go to stack "time sheet"
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 47 (button)
  125. -- low flags: 00
  126. -- high flags: A004
  127. -- rect: left=186 top=288 right=310 bottom=284
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 2
  132. -- text size: 10
  133. -- style flags: 8192
  134. -- line height: 13
  135. -- part name: New/Delete
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   if the optionKey is down then
  139.     Answer "Are you sure you want to delete?" with "Yes" or "Cancel"
  140.     if it = "Yes" then doMenu "Delete card"
  141.     exit mouseUp
  142.   end if
  143.  
  144.   doMenu "New Card"
  145. end mouseUp
  146.  
  147.  
  148.  
  149. -- part 49 (button)
  150. -- low flags: 00
  151. -- high flags: A004
  152. -- rect: left=14 top=312 right=334 bottom=171
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 1
  156. -- font id: 2
  157. -- text size: 10
  158. -- style flags: 8192
  159. -- line height: 13
  160. -- part name: Print Summary/Report
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   if the optionKey is down then
  164.     doMenu "page setup..."
  165.  
  166.     doMenu "print report..."
  167.     exit mouseUp
  168.   end if
  169.   push card
  170.  
  171.   doMenu "page setup..."
  172.   set lockScreen to true
  173.   put field "sumcode" into printCode
  174.   put field "sumdate" into printCode2
  175.   repeat while field "sumcode" = printcode and field "sumdate" = printcode2
  176.  
  177.     doMenu "print card"
  178.     go next card
  179.     if the short name of this card = "rate scheme" then
  180.       pop card
  181.       exit mouseUp
  182.     end if
  183.  
  184.   end repeat
  185.   pop card
  186. end mouseUp
  187.  
  188.  
  189.  
  190. -- part 50 (field)
  191. -- low flags: 01
  192. -- high flags: 6002
  193. -- rect: left=91 top=49 right=283 bottom=154
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 0
  197. -- font id: 3
  198. -- text size: 10
  199. -- style flags: 8192
  200. -- line height: 11
  201. -- part name: Week
  202.  
  203.  
  204. -- part 51 (field)
  205. -- low flags: 01
  206. -- high flags: 6002
  207. -- rect: left=156 top=49 right=283 bottom=185
  208. -- title width / last selected line: 0
  209. -- icon id / first selected line: 0 / 0
  210. -- text alignment: 0
  211. -- font id: 3
  212. -- text size: 10
  213. -- style flags: 8192
  214. -- line height: 11
  215. -- part name: Activity
  216.  
  217.  
  218. -- part 53 (field)
  219. -- low flags: 00
  220. -- high flags: 6002
  221. -- rect: left=187 top=49 right=283 bottom=228
  222. -- title width / last selected line: 0
  223. -- icon id / first selected line: 0 / 0
  224. -- text alignment: 0
  225. -- font id: 3
  226. -- text size: 10
  227. -- style flags: 8192
  228. -- line height: 11
  229. -- part name: Hours
  230.  
  231.  
  232. -- part 55 (field)
  233. -- low flags: 01
  234. -- high flags: 6002
  235. -- rect: left=230 top=49 right=283 bottom=291
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 65535
  239. -- font id: 3
  240. -- text size: 10
  241. -- style flags: 8192
  242. -- line height: 11
  243. -- part name: Total$
  244.  
  245.  
  246. -- part 57 (field)
  247. -- low flags: 01
  248. -- high flags: 6002
  249. -- rect: left=292 top=49 right=283 bottom=498
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 0
  253. -- font id: 3
  254. -- text size: 10
  255. -- style flags: 8192
  256. -- line height: 11
  257. -- part name: Desc.
  258.  
  259.  
  260. -- part 59 (button)
  261. -- low flags: 00
  262. -- high flags: 0000
  263. -- rect: left=114 top=3 right=25 bottom=135
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 21847 / 21847
  266. -- text alignment: 1
  267. -- font id: 2
  268. -- text size: 10
  269. -- style flags: 8192
  270. -- line height: 13
  271. -- part name: Home
  272. ----- HyperTalk script -----
  273. on mouseUp
  274.   visual effect iris close
  275.   go "home"
  276. end mouseUp
  277.  
  278.  
  279.  
  280. -- part 60 (button)
  281. -- low flags: 00
  282. -- high flags: A004
  283. -- rect: left=174 top=312 right=334 bottom=284
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 0 / 0
  286. -- text alignment: 1
  287. -- font id: 2
  288. -- text size: 10
  289. -- style flags: 8192
  290. -- line height: 13
  291. -- part name: Adjust Rates
  292. ----- HyperTalk script -----
  293. on mouseUp
  294.   push card
  295.   go card "Rate Scheme"
  296. end mouseUp
  297.  
  298.  
  299.  
  300. -- part 61 (button)
  301. -- low flags: 00
  302. -- high flags: 2000
  303. -- rect: left=231 top=8 right=22 bottom=244
  304. -- title width / last selected line: 0
  305. -- icon id / first selected line: 26635 / 26635
  306. -- text alignment: 1
  307. -- font id: 0
  308. -- text size: 12
  309. -- style flags: 0
  310. -- line height: 16
  311. -- part name: Question
  312. ----- HyperTalk script -----
  313. on mouseDown
  314.   put "w/SHIFT:Time OR Expense only.w/OPTION: Adjust summary dates."
  315. end mouseDown
  316.  
  317. on mouseUp
  318.   hide message box
  319. end mouseUp
  320.  
  321.  
  322.  
  323. -- part 62 (button)
  324. -- low flags: 00
  325. -- high flags: 0000
  326. -- rect: left=1 top=321 right=341 bottom=13
  327. -- title width / last selected line: 0
  328. -- icon id / first selected line: 0 / 0
  329. -- text alignment: 1
  330. -- font id: 0
  331. -- text size: 12
  332. -- style flags: 0
  333. -- line height: 16
  334. -- part name: prev
  335. ----- HyperTalk script -----
  336. on mouseUp
  337.   visual effect wipe right
  338.   go prev card of this background
  339.   push recent card
  340. end mouseUp
  341.  
  342.  
  343.  
  344. -- part 63 (button)
  345. -- low flags: 00
  346. -- high flags: 0000
  347. -- rect: left=498 top=319 right=342 bottom=512
  348. -- title width / last selected line: 0
  349. -- icon id / first selected line: 0 / 0
  350. -- text alignment: 1
  351. -- font id: 0
  352. -- text size: 12
  353. -- style flags: 0
  354. -- line height: 16
  355. -- part name: next
  356. ----- HyperTalk script -----
  357. on mouseUp
  358.   visual effect wipe left
  359.   go next card of this background
  360.   push recent card
  361. end mouseUp
  362.  
  363.  
  364.  
  365. -- part 65 (field)
  366. -- low flags: 80
  367. -- high flags: 2004
  368. -- rect: left=117 top=92 right=255 bottom=404
  369. -- title width / last selected line: 0
  370. -- icon id / first selected line: 0 / 0
  371. -- text alignment: 1
  372. -- font id: 2
  373. -- text size: 14
  374. -- style flags: 768
  375. -- line height: 18
  376. -- part name: credits
  377.  
  378.  
  379. -- part 66 (field)
  380. -- low flags: 80
  381. -- high flags: 2001
  382. -- rect: left=158 top=106 right=250 bottom=369
  383. -- title width / last selected line: 0
  384. -- icon id / first selected line: 0 / 0
  385. -- text alignment: 1
  386. -- font id: 2
  387. -- text size: 12
  388. -- style flags: 0
  389. -- line height: 16
  390. -- part name: credits2
  391.  
  392.  
  393. -- part 67 (button)
  394. -- low flags: 00
  395. -- high flags: 2000
  396. -- rect: left=258 top=8 right=20 bottom=312
  397. -- title width / last selected line: 0
  398. -- icon id / first selected line: 0 / 0
  399. -- text alignment: 1
  400. -- font id: 0
  401. -- text size: 12
  402. -- style flags: 0
  403. -- line height: 16
  404. -- part name: find in client info
  405. ----- HyperTalk script -----
  406. on mouseUp
  407.  
  408.   if field "sumcode" is empty then
  409.     ask "Find a specific code?"
  410.     put it into field "sumcode"
  411.   end if
  412.   set lockScreen to true
  413.   put field "sumcode" into clientFind
  414.   push card
  415.   go stack "client info"
  416.   find clientFind in field "assignedcode"
  417.   if the result is "not found" then
  418.     beep
  419.     answer "No such code in client info." with "I'll look" or "Try again" or "Cancel"
  420.     if it = "I'll look" then exit mouseUp
  421.     pop card
  422.     if it = "try again" then
  423.  
  424.       send mouseUp to background button "find in client info"
  425.     end if
  426.  
  427.   end if
  428.  
  429. end mouseUp
  430.  
  431.